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Use this downloadable 
ActiveX custom control 
to operate IEEE 488 
instruments. And learn 
how to use a VB chart 
to plot data. 




. k^S^^J^* nen y° u take measure- 

^^^ments on your lab bench, 

^^you often need to record and 
display your data. Writing a pro- 
gram to capture and plot data can be 
tedious. To make Visual Basic (VB) 
programming easier, we've created 
an ActiveX control that simplifies 
programming for instruments over 
an IEEE 488 interface. 

The control lets you send ASCII in- 
strument commands to an IEEE 488 
card's driver. Instead of a line of code 
that reads CALL ibwrt(22, "wave- 
form:data?"), you can write a line of 



I 'mpi-rtv 




FIGURE 1 



| An ActiveX control lets you set the I/O address from a 
Property Page and lets you test the connection during development 



code like scope.output 
"waveform:data?" We've 
made the control available 
for free downloading 
through Test & Measure- 
ment World's Web site: 
www.tmworld.com. Click 
on "Software." 

Whenever you develop 
an application that controls 
instruments, you should 
start by checking for com- 
munications between your 
computer and your instru- 
ments. If you don't do this 
and you later develop a 
communication problem, 
you won't know if the problem is in 
your code, the instrument setup, or the 
IEEE 488 interface card, or even if you 
forgot to connect the IEEE 488 cable. 
So, we added a feature to the control 
that lets us check communications with 
instruments while VB is still at the de- 
sign mode. With this control, we can 
check communications without run- 
ning the application we're developing. 

We'll show you how to use the con- 
trol to establish communications with 
your instruments. We'll also show you 
how to use Microsoft's 
VB chart control to 
plot data. Our example 
uses an HP 54602B 
oscilloscope, but you 
can apply our pro- 
gramming concepts to 
x| any scope — or any 
other instrument, 
for that matter. 

We'll assume you 
know how to config- 
ure the scope's sen- 
sitivity or trigger 
settings. If you 
need a refresher on 
how to set up a 




This Property Page lets you communicate with 
the instrument during design time. The Output/Enter button 
executes the Output command and if a query is sent, exe- 



scope under computer control, see the 
article referenced in footnote 1. 

The following examples use VB 5.0 
professional or better and a HP 54600 
series scope with an IEEE 488 mod- 
ule. You'll also need an IEEE 488 in- 
terface card from either Hewlett- 
Packard or National Instruments. 

Getting the Control 

To use the control, your computer 
needs to have Windows 95 and OSR2 
or Internet Explorer 4.0 or later in- 
stalled. 2 Your first step is to download 
the control, called TMWControl, from 
the T&MW Web site. Unzip the file 
and run the setup.exe program. Open 
VB, then select "New" and "Standard 
EXE" to start a new project. A blank 
form will appear. Be sure that the 
Toolbox is visible. If not, select the 
toolbox from the "View" menu. Add 
the "TMW Instrument I/O Control" 
to your toolbox from the Components 
dialog box (right click on the toolbox, 
or use Ctrl-T). 

Put the control on a form. VB will 
name the control TMWControll, but 
we changed the control's name to 
"scope" for this article. Each instance 
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of the control can communicate with 
just one instrument, so you must add 
one instance of the control to your VB 
project for each instrument you have. 
Give each control a different — but de- 
scriptive — name like scope, DMM, or 
FunctionGen. 

Now, you can test communications 
between your PC and your instru- 
ment right from the VB form. To 
communicate with your instrument, 
right-click on the control and select 
Properties. You'll get a set I/O and 
instrument property page. Once you 



set up the address for the GPIB card 
and the instrument, click on the Test 
button. You should see the Instru- 
ment Test Result screen (Fig. 1) 
that contains the instrument's ID — 
if your instrument is IEEE 488.2 
compliant. If your instrument isn't 
IEEE 488.2 compliant, you must use 
the Instrument page to verify 
communications. 

With communications established, 
you can try out some instrument com- 
mands in the "Instrument" Property 
Page. Figure 2 shows where you type 



an instrument command for output to 
the instrument and where the Enter 
button returns a response from the 
instrument. 

Next, you're ready to use the con- 
trol's embedded automation server to 
control instruments through VB 
code. In your code, use a control's 
commands to produce actions. The 
two commands you'll most often use 
are "Output" for sending ASCII 
strings to instruments and "Enter" 
for receiving data. 

To see a brief description of the 
"Output" command, the "Enter" com- 
mand, and any other of the control's 
commands, press the F2 key or click on 
"Object Browser" in the "View" menu. 
Select TMWControl where "All Li- 
braries" is shown. To see details of the 
10 object, in the menu go to "Project, 
References" and click on "10 Manager 
and Utilities". YouH then be able to 
see the commands that the control ex- 
poses with its I/O library. Alterna- 
tively, you can place the cursor on the 
method or property name while view- 
ing VB code and press the Fl key. You 
will then see a help page for that 
method or property. 

To check that you can communicate 
with the instrument through code, 
place a button on the form, add the fol- 
lowing code in the button_click sub- 
routine, and run the program. If you 
receive a response identifying your 
instrument, then you have communi- 
cated with it. 

Dim reply As String 
scope. Output "*IDN?" 
scope. Enter reply 

MsgBox reply 

This general-purpose control will 
work for instruments that accept 
string commands. You can go further 
by encapsulating code unique to an 
instrument into your own custom con- 
trol. You just expose the command 
GetWavformData, and have it return 
the data array. You will then have an 
ActiveX control unique to your in- 
strument. In effect, you'll have cre- 
ated a custom driver for your instru- 
ment. (To learn more about how to 
build your own control, see the article 
in footnote 3.) 

Now that you have code to control 
your instrument, you can get data and 
plot a waveform. Scopes can return 



Listing 1. This code returns and scales the waveform data from the instrument 
using the provided control. It demonstrates sending strings, retrieving parsed 
numeric data, and retrieving IEEE 488 block data. (The complete control is available 
at www.tmworld.com. Click on "Software".) 

Sub GetWaveformData (Channel As Long, 

Points As Long, time, data) 

' Gets the waveform data from the HP546xx 

' scope given the channel and number of points 

Dim Preamble (10) As Double 
Dim ydata As Variant 
Dim address As String 
Dim strChannel As String 
Dim i As Long 

scope. address - txtAddress .Text 
' set scope for number of points and then 
' get the preamble and return waveform 
■ as byte data 

strChannel - "Channel" & Format$ (Channel) 
With scope 

.Output "waveform: points " & Points 

.Output "Waveform: Source " & strChannel 

.Output "Waveform: Preamble?" 

.Enter Preamble () 

.Output "Waveform: Format byte" 

.Output "Waveform: data?" 

' this gets the IEEE block data 

.Enter ydata, "II" 
End With .. . i'^o ,it;v )<■■ 

■ ■ •-•■•(•.•_ • •>>. '• . ■:>'.:' ■<:■ -dHikst .... • '■■ '1:3 

' dimension data for the needed size 
ReDim data (Points - 1) 
ReDim time (Points - 1) 

' scale the data to volts and seconds 
For i - To UBound (ydata) 

data(i) - (ydata(i) - Preamble (9)) * _ 

Preamble (7) + Preamble (8) 
time(i) - ((i - Preamble (6)) * _ 

Preambled)) + Preamble(5) 
Next i ' to Ubound of ydata 
End Sub 
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thousands — or even millions — of 
waveform data points. To transfer the 
data quickly, the HP 54600 returns the 
data as simple bytes in an IEEE 488 
block format. The scope also returns a 
preamble with 10 fields that contain 
scaling information about the data. 
" With a scope, you're mostly inter- 
ested in the y-axis (volts) and x-axis 
(time) scale factors. With these para- 
meters, you can reconstruct the wave- 
form. Listing 1 shows you how to use 
the function GetWaveformDataO to 
retrieve data from the scope. 

To get the preamble, use the con- 
trol's Enter command with an array. 
Scopes often have a command that 
let's them send the preamble to the 
host computer. 

Dim Preamble ( 10) As Double 
scope. Output "Waveform: 

Preamble?" 
scope. Enter Preamble () 

When you use the control's Enter 
property with an array that is a nu- 
meric data type, the control parses the 
string returned from the scope into an 
array. You can check the data in the 
array with a "For Next" loop and the 
debug print property. We created a 
debug button with code that lets us 



look at the preamble on 
the form. Look at the 
data in the "Immediate 
Window" available from 
VB's "View" menu. 

Dim I As Long 
For I = to 9 
Debug. print 
Preambled) 
Next I 

The waveform's ampli- 
tude data (y value) is in 
IEEE 488 block format, 
which is a standardized 
block of data preceded by 
a header. You can gener- 
ate the x value because 
the y data is equally 
spaced in time, and the preamble tells 
you the time between each point. The 
code segments below demonstrate 
how to get data from the scope. Both 
examples are acceptable, although the 
code that uses the "With" statement 
will run somewhat faster. 

Dim ydata As Variant 
scope. Output "Waveform: 

Format byte" 
scope. Output "Waveform:data?" 
scope. Enter ydata, "II" 




Listing 2. This routine accepts an MSChart and an array of Variants as input to plot the 
data, set the divisions on the chart, and label the x-axis based on the time data in the 
first column. 



Sub MakeGraph (chart As MSChart, 
' Plots the data to as graph 

Dim points As Long 

Dim ptsPerDivision As Long 

Dim xDivision As Double 

Dim xAxisTitle 



DataO As Variant) 



points ■ UBound(Data) 
ptsPerDivision = points 
xDivision = (Data(2, 0) 



/ 



10 

Data(l, 



Format$ (xDivision) & 



0)) * ptsPerDivision 
" sec per division" 



-J 

H 



xAxisTitle 
With chart 

. Plot. Axis (VtChAxisIdX) .AxisTitle - xAxisTitle 
. Plot. SeriesCollection(l) .Position. Excluded = True 
. Plot. Axis (VtChAxisIdX) .CategoryScale. Auto = False 
.Plot .Axis (VtChAxisIdX) . CategoryScale .DivisionsPerTick ' 

- ptsPerDivision 
.legend. Location. Visible - True 
.chartType = VtChChartType2dLine 
.ChartData - Data 
End With 
End Sub 



Add a chart control to your VB form to plot data. 



You can also write the code like this: 

With scope 
.Output "Waveform: Format 
byte" 

.Output "Waveform: data? " 
.Enter ydata, "II" 
End With 



Graph the Data 

Once you can get data from your in- 
struments into arrays, you can use 
VB's chart control to view the data. 
Start by referencing the chart control 
in your VB project; press Ctrl-T and 
select "Microsoft Chart Control" to 
place the control in the toolbox. Now, 
place the chart control on the form. Set 
the graph as a two-dimensional line 
graph. The line graph scales the data 
and draws the needed grids. 

You can make these settings in the 
property pages or in code. We suggest 
you use code to avoid wrong settings. 
Figure 3 shows a VB form containing 
a chart that plots two signals. 

Next, you must set up the data for 
the chart. The chart control's Chart- 
Data(property) command, which loads 
data into a chart, requires a two-di- 
mensional variant for its input. You can 
use the first row (row 0) of each column 
to store labels or legends. If you use 
this method to feed data to the control, 
the graph will automatically plot and 
label the channels by color. 

Table 1 shows the structure of an 
array for plotting data from two scope 
channels. We prefer to put the time 
data in the first column but not plot it 
because the time between samples is 
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constant. You can tell the graph to hide 
the first column of data, yet you still 
have easy access to the data if you need 
to view it. The chart creates one line for 
each column of data you want to plot. 

The following code creates the array 
to plot channel one. We added the 
in the ReDim statement, which allows 
for the extra string labels in row 0: 



Dim data() as Variant 

ReDim data(0 To 

UBound (ydata) +1, 1 To 2) 



data(0 

data(0 
For i = 

data (i + 1 , 

data(i + 1 , 
Next i 



1) — "time" 

2) = "Ch 1" 
To UBound (ydata) 

1) = timedata(i) 

2) = ydata(i) 
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AC Power Sources 
Frequency /Voltage Converters 
IEC Test Systems 
Custom Power Products 



Pacific Power Source makes it easy to control, meter and analyze 
AC power with our rugged line of AC Test Power products. 
Applications include- 

• Automatic Test Equipment (ATE) 

• Compliance testing (UL, CE, CSA, IEC, Mil Std, TUV) 

• Lab and Production testing 

• Lighting ballast testing 

• Power line disturbance simulation 

• 400Hz avionics and shipboard systems 

Put us to the test! Call or visit our web site to get a FREE demo copy 
of Pacific's easy to use software for AC Test Power : 

www.pacificpower.com 



800-854-2433 • 714-898-2691 • 7 1 4-898-8076 (FAX) 
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Table 1. Array Structure 



"Time 

x-axis_data(1) 




Thermo > oltek 



milmega ... CONTEST cm 



Once you've created the data array, 
you can feed the data to the chart with 
the code in Listing 2. The first line of 
the code below hides Series 1 (column 
1, time data). The second line chooses 
the type of chart, and the last line gives 
it the data array. The code also scales 
the grid and annotates the x-axis. 

MSChartl .Plot. 
SeriesCollection ( 1 ) . 

Position . Excluded = 

False 
MSChartl. chartType 

=VtChChartType2dLine 
MSChartl . ChartData = data 

With the TMWControl and with 
VB's chart control, you have a powerful 
set of tools for building quick applica- 
tions for controlling instruments. While 
we use these controls mostly for au- 
tomating tests to evaluate engineering 
prototypes, you can also use them to au- 
tomate product tests. T&MW 

FOOTNOTES 

1. Muterspaugh, Helen, "Program Your 
Scope from a PC," Test & Measurement 
World, October 1998, p. 39, www.tmworld. 
com/articles/program_dso_1098.htm 

2. If you have neither 0SR2 nor Internet Ex- 
plorer, you can download Explorer from 
www.microsoft.com. Or, if you prefer not to 
install Explorer, you can download and install 
DC0M95 from www.microsoft.com/com/ 
DCOM/dcom95/dcom 1_3.asp. 

3. Freeman, Michael, "Create Your Own Ac- 
tiveX Controls," Test & Measurement World, 
September 1998, p. 39. 
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► // you have technical questions about the 
TMWControl, contact Werner Haussmann 
at werner_haussmann@hp.com. 

For quantity reprints of this article, 
call 847-390-2296. 
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